home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 12 / 012.d81 / july 4th (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  271 lines
  1. 1 gosub60000
  2. 10 rem  have a safe and sane july 4th
  3. 20 rem  ** by - m. n. carswell
  4. 30 rem  ** 486 s. steel bridge rd. s.e.
  5. 40 rem  ** eatonton, ga. 31024
  6. 50 rem  ** sound by daughter judy **
  7. 51 restore
  8. 52 sid=54272:fort=0to24:pokesid+t,0:next
  9. 53 pokesid+24,15:pokesid+5,85:pokesid+6,85
  10. 54 ff=10
  11. 55 print"[147][144]":poke53281,1
  12. 56 print"one moment please....."
  13. 57 print:print"please turn your volume up....."
  14. 60 rem sprite data
  15. 65 v=53248:poke2040,192:poke2041,193
  16. 70 pokev+39,1:pokev+40,1
  17. 75 pokev+29,3:pokev+23,3
  18. 80 pokev+16,0:pokev,160:pokev+2,160
  19. 85 pokev+1,117:pokev+3,117
  20. 90 forrd=0to127:read da:poke12288+rd,da:next
  21. 100 print"[147]"
  22. 110 n$= "             are you ready?"
  23. 120 for a=1 to len(n$)
  24. 130 print"[147]":
  25. 140 print"":print right$(n$,a):gosub5000
  26. 150 nexta
  27. 160 for j=1 to 500:next:pokesid+4,0:forj=1to1500:next
  28. 162 poke198,0:wait198,1:getjj$:ifjj$<>"y"then162
  29. 165 print"[147]"
  30. 170 n$= "             then lets go"
  31. 180 for a=1 to len(n$)
  32. 185 print"[147]"
  33. 190 print"":print right$(n$,a):gosub6000
  34. 200 nexta
  35. 210 for j=1 to 500:next:pokesid+4,0:forj=1to1500:next
  36. 490 print"[147]"
  37. 499 rem start color bars
  38. 500 poke 53280,1:poke 53281,14
  39. 510 for j=9to 0step-1:poke1229+j,160:poke55501+j,1:gosub5000:next
  40. 520 for j=0to9:poke 1269+j,160:poke 55541+j,1:gosub5000:next
  41. 530 for j=80 to 0step-40:poke1199+j,42:poke 55471 +j,6:gosub6000:next
  42. 540 for j=10to0 step-1:poke 1188+j,42:poke 55460+j,6:gosub6000:next
  43. 550 for j=0to80 step40:poke1228+j,42:poke55500+j,6:gosub6000:next
  44. 560 for j=0to 10step1:poke1309+j,42:poke 55581+j,6:gosub6000:next
  45. 570 for j=160to0step-40:poke1160+j,160:poke 55432+j,2:gosub5000:next
  46. 580 for j=12to0step-1:poke1147+j,160:poke 55419+j,2:gosub5000:next
  47. 590 for j =0 to 160step40:poke1187+j,160:poke55459+j,2:gosub5000:next
  48. 600 for j=0 to 12 step1:poke1348+j,160:poke55620+j,2:gosub5000:next
  49. 610 for j=240to0step-40:poke1121+j,160:poke 55393+j,1:gosub6000:next
  50. 620 for j=14to0step-1:poke1106+j,160:poke55378+j,1:gosub6000:next
  51. 630 for j=0to240step40:poke1146+j,160:poke55418+j,1:gosub6000:next
  52. 640 for j=0to14step1:poke1387+j,160:poke55659+j,1:gosub6000:next
  53. 650 for j=320 to 0 step -40:poke1082+j,42:poke55354+j,6:gosub5000:next
  54. 660 for j=16to0step-1:poke1065+j,42:poke55337+j,6:gosub5000:next
  55. 670 for j=0to320 step40:poke1105+j,42:poke55377+j,6:gosub5000:next
  56. 680 for j=0 to16 step1:poke1426+j,42:poke55698+j,6:gosub5000:next
  57. 690 for j=400 to 0 step-40:poke1043+j,160:poke55315+j,2:gosub6000:next
  58. 700 for j=18to0step-1:poke1024+j,160:poke55296+j,2:gosub6000:next
  59. 710 for j=0 to400 step40:poke1064+j,160:poke55336+j,2:gosub6000:next
  60. 720 for j=0to38step1:poke1465+j,160:poke55737+j,2:gosub5000:next
  61. 730 for j=400to40step-40:poke1063+j,160:poke55335+j,2:gosub5000:next
  62. 740 for j=19to0step-1:poke1044+j,160:poke55316+j,2:gosub5000:next
  63. 750 for j=0to400step40:poke1084+j,160:poke55356+j,2:gosub5000:next
  64. 760 for j=0to17step1:poke1445+j,42:poke55717+j,6:gosub6000:next
  65. 770 for j=320to0step-40:poke1102+j,42:poke55374+j,6:gosub6000:next
  66. 780 for j=17to0step-1:poke1085+j,42:poke55357+j,6:gosub6000:next
  67. 790 for j=0to280 step40:poke1125+j,42:poke55397+j,6:gosub6000:next
  68. 800 for j=0to15step1:poke1406+j,160:poke55678+j,1:gosub5000:next
  69. 810 for j=240to0step-40:poke1141+j,160:poke55413+j,1:gosub5000:next
  70. 820 for j=14to0step-1:poke1126+j,160:poke55398+j,1:gosub5000:next
  71. 830 for j=0to200step40:poke1166+j,160:poke55438+j,1:gosub5000:next
  72. 840 forj=0to13step1:poke1367+j,160:poke55639+j,2:gosub6000:next
  73. 850 for j=160 to0step-40:poke1180+j,160:poke55452+j,2:gosub6000:next
  74. 860 for j=13 to 1step-1:poke1166+j,160:poke55438+j,2:gosub6000:next
  75. 870 for j=0to120step40:poke1207+j,160:poke55479+j,2:gosub6000:next
  76. 880 forj=0to11step1:poke1328+j,42:poke55600+j,6:gosub5000:next
  77. 890 for j=80to0step-40:poke1219+j,42:poke55491+j,6:gosub5000:next
  78. 900 for j=11to1step-1:poke1207+j,42:poke55479+j,6:gosub5000:next
  79. 910 for j=0to80step40:poke1248+j,42:poke55520+j,6:gosub5000:next
  80. 920 for j=0to9step1:poke1289+j,160:poke55561+j,1:gosub6000:next
  81. 930 for j=9to0step-1:poke1249+j,160:poke55521+j,1:gosub6000:next
  82. 940 for j=0 to9step1:poke1809+j,160:poke56081+j,1:gosub6000:next
  83. 950 for j=9to0step-1:poke1769+j,160:poke56041+j,1:gosub6000:next
  84. 960 for j=0to80step40:poke1768+j,42:poke56040+j,6:gosub5000:next
  85. 970 for j=1 to 11step1:poke1848+j,42:poke56120+j,6:gosub5000:next
  86. 980 for j=80to0step-40:poke1739+j,42:poke56011+j,6:gosub5000:next
  87. 990 for j=11 to0step-1:poke1728+j,42:poke56000+j,6:gosub5000:next
  88. 1000 for j=0to160step40:poke1727+j,160:poke55999+j,2:gosub6000:next
  89. 1010 for j=1to13step1:poke1887+j,160:poke56159+j,2:gosub6000:next
  90. 1020 for j=160 to0step-40:poke1700+j,160:poke55972+j,2:gosub6000:next
  91. 1030 for j=13 to0step-1:poke1687+j,160:poke55959+j,2:gosub6000:next
  92. 1040 for j=0to240 step40:poke1686+j,160:poke55958+j,1:gosub5000:next
  93. 1050 for j=0to14 step1:poke1927+j,160:poke56199+j,1:gosub5000:next
  94. 1060 forj=240to0step-40:poke1661+j,160:poke55933+j,1:gosub5000:next
  95. 1070 for j=14to0step-1:poke1646+j,160:poke55918+j,1:gosub5000:next
  96. 1080 for j=0to320step40:poke1645+j,42:poke55917+j,6:gosub6000:next
  97. 1090 for j=0to16step1:poke1966+j,42:poke56238+j,6:gosub 6000:next
  98. 1100 for j=320to0step-40:poke1622+j,42:poke55894+j,6:gosub6000:next
  99. 1110 for j=16 to0step-1:poke1605+j,42:poke55877+j,6:gosub6000:next
  100. 1120 for j=0to400step40:poke1604+j,160:poke55876+j,2:gosub5000:next
  101. 1130 for j=0to18step1:poke2005+j,160:poke56277+j,2:gosub5000:next
  102. 1140 for j=400to0step-40:poke1583+j,160:poke55855+j,2:gosub5000:next
  103. 1150 for j=38to0step-1:poke1544+j,160:poke55816+j,2:gosub5000:next
  104. 1160 for j=0to400step40:poke1584+j,160:poke55856+j,2:gosub6000:next
  105. 1170 for j=0to18step1:poke1985+j,160:poke56257+j,2:gosub6000:next
  106. 1180 for j=360to0step-40:poke1603+j,160:poke55875+j,2:gosub6000:next
  107. 1190 for j=17to0step-1:poke1585+j,42:poke55857+j,6:gosub5000:next
  108. 1200 for j=0to320step40:poke1625+j,42:poke55897+j,6:gosub5000:next
  109. 1210 for j=0to16step1:poke1946+j,42:poke56218+j,6:gosub5000:next
  110. 1220 for j=280to0step-40:poke1642+j,42:poke55914+j,6:gosub5000:next
  111. 1230 for j=15to0step-1:poke1626+j,160:poke55898+j,1:gosub6000:next
  112. 1240 for j=0to240step40:poke1666+j,160:poke55938+j,1:gosub6000:next
  113. 1250 for j=0to14 step1:poke1907+j,160:poke56179+j,1:gosub6000:next
  114. 1260 for j=200to0step-40:poke1681+j,160:poke55953+j,1:gosub6000:next
  115. 1270 for j=13to0step-1:poke1667+j,160:poke55939+j,2:gosub5000:next
  116. 1280 for j=0to160step40:poke1707+j,160:poke55979+j,2:gosub5000:next
  117. 1290 for j=0to12step1:poke1868+j,160:poke56140+j,2:gosub5000:next
  118. 1300 for j=120to0step-40:poke1720+j,160:poke55992+j,2:gosub5000:next
  119. 1310 for j=11to0step-1:poke1708+j,42:poke55980+j,6:gosub6000:next
  120. 1320 for j=0to80step40:poke1748+j,42:poke56020+j,6:gosub6000:next
  121. 1330 for j=0to10step1:poke1829+j,42:poke56101+j,6:gosub6000:next
  122. 1340 for j=40to0step-40:poke1759+j,42:poke56031+j,6:gosub6000:next
  123. 1350 forj=9to0step-1:poke1749+j,160:poke56021+j,1:gosub5000:next
  124. 1360 for j=0to9step1:poke1789+j,160:poke56061+j,1:gosub5000:next
  125. 1370 forj=0to39step1:poke1504+j,160:poke55776+j,1:gosub6000:next
  126. 1380 poke53281,1
  127. 1385 forj=1to500:next:forj=4to18step7:pokesid+j,0:next
  128. 1390 print"swimmingboating"
  129. 1400 print"hikingcamping
  130. 1410 [153]"fishingracing"
  131. 1420 [153]"runningskiing"
  132. 1425 [129]j[178]1[164]500:[130]
  133. 1430 [143] have a safe july 4th
  134. 1440 [153]""
  135. 1450 [153]""
  136. 1460 a$[178]"have a safe and sane july 4th"
  137. 1470 a[178][195](a$):[139]a[173]2[179][177] [181](a[173]2) [167] a$[178]" "[170]a$:[137] 1470
  138. 1480 [129] i[178]1[164]a[173]2
  139. 1490 [153] [163]20[171]i);[200](a$,i);[201](a$,i):[141]7000
  140. 1500 [153]"on";
  141. 1510 [129] zz[178]1[164]300:[130] zz
  142. 1520 [130] i
  143. 1532 [129] x[178]1[164]2000:[130]
  144. 1535 [141] 4000
  145. 1536 [129]j[178]1[164]500:[130]
  146. 1537 [153]"load"
  147. 1538 [151]53280,1:[151]53281,14
  148. 2500 [143] ***ending***
  149. 2600 [151]sid[170]5,85:[151]sid[170]6,85
  150. 2601 [151]v[170]21,1
  151. 2605 [129]x[178]1[164]3:[135]dd(x):[130]
  152. 2610 [151]sid[170]24,15
  153. 2615 [129]t[178]1[164]18:[153]:[130]
  154. 2616 [153][163]12)"have a nice day!"
  155. 2617 [129]x[178]1[164]500:[130]
  156. 2620 [129] a[178]1[164]15:[141]6000:[151]sid[170]24,15[171]a
  157. 2625 [139][181](a[173]2)[178]a[173]2[167][151]v[170]21,2:[137]2627
  158. 2626 [151]v[170]21,1
  159. 2627 [129]t[178]1[1